home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue39 / smarter / DateFormat / main.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1998-01-30  |  860 b   |  46 lines
  1. unit main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls;
  8.  
  9. type
  10.   TformMain = class(TForm)
  11.     editEffectiveDate: TEdit;
  12.         Label1: TLabel;
  13.     lablLongDate: TLabel;
  14.     butnTest: TButton;
  15.         procedure butnTestClick(Sender: TObject);
  16.     procedure FormCreate(Sender: TObject);
  17.     private
  18.     public
  19.     end;
  20.  
  21. var
  22.     formMain: TformMain;
  23.  
  24. implementation
  25. {$R *.DFM}
  26.  
  27. procedure TformMain.butnTestClick(Sender: TObject);
  28. var
  29.     dateTemp: TDateTime;
  30. begin
  31.     try
  32.         dateTemp := StrToDate(editEffectiveDate.Text);
  33.     except
  34.         editEffectiveDate.SetFocus;
  35.         raise;
  36.     end;
  37.     lablLongDate.Caption := 'You entered ' + FormatDateTime('dddddd', dateTemp);
  38. end;
  39.  
  40. procedure TformMain.FormCreate(Sender: TObject);
  41. begin
  42.     editEffectiveDate.Text := FormatDateTime('MM/DD/YYYY', Date);
  43. end;
  44.  
  45. end.
  46.